R/misc functions.R

In jrminter/minterbrand: minterbrand R package

#' Write Clip shortcut
#' @description Copies an object to the clipboard. Defaults to .Last.value
#' 
#' @import clipr
#' 
#' @export
wc <- function(x = .Last.value) {
  clipr::write_clip(x)
  message("Value copied to clipboard")
}

#' Value not matching (opposite of %in%)
#' 
#' @description Returns a logical vector indicating where there is not a match for its left operation.  Opposite of %in%
#' 
#' @return A logical vector, indicating if there was no match for each element.
#' 
#' @export

"%ni%" <- Negate("%in%")